Option Explicit
Sub C_Sample010()
    Dim myRng As Range
    Set myRng = Range("B1:B3")			'Nxs
    Cells.Clear							'xs檺M
    Range("A1") = 3						']wƭ
    Range("A2") = 10
    Range("A3") = 26
    'ǳƨ즹
    Range("B1:B3").FormulaArray = "=A1:A3"		']w
    Set myRng = Nothing						'
End Sub

